home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_89-11_1989_-_de_Side_B.d64 / sp.fly char (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  911b  |  30 lines
  1. 0 plot   = 49152 : line    = pl+3  :      clear  = pl+6  : recht   = pl+9
  2. 1 setup  = pl+12 : show    = pl+15 :      mem    = pl+18 : ellipse = pl+21
  3. 2 test   = pl+24 : invert  = pl+27 :      speich = pl+30 : left    = pl+33
  4. 3 right  = pl+36 : hard    = pl+39 :      up     = pl+42 : down    = pl+45
  5. 4 write  = pl+48 : zmem    = pl+51 :      copy   = pl+54 : w2      = pl+57
  6. 5 ssetup = pl+60 : charset = pl+63 :      laden  = pl+66
  7. 10 poke53281,0:poke53280,0:poke646,1
  8. 15 gosub215
  9. 20 sys mem,32,32:sys show ,1,1,1,1,0
  10. 25 sys setup ,120,95:sys clear
  11. 30 sys zmem,53248,1,0
  12. 32 sys charset,8,8,0,0
  13. 35 print"[147]"
  14. 40 sys cl:input"text:";na$:le=len(na$):ifle<1orle>11then40
  15. 41 fory=0to16step8
  16. 42 x=0:fork=1tole:a$=mid$(na$,k,1)
  17. 44 a=y/8:gosub70:x=x+8
  18. 48 next
  19. 49 next
  20. 50 goto40
  21. 70 fori=0to7
  22. 80 sys ch,8,8,w1(a),w2(a)
  23. 90 sys wr,x,y,a$+chr$(34)
  24. 100 ifw1(a)>0thenw1(a)=w1(a)-1
  25. 105 ifw2(a)>0thenw2(a)=w2(a)-1
  26. 210 next
  27. 215 w1(0)=7:w1(1)=0:w1(2)=7
  28. 216 w2(0)=7:w2(1)=7:w2(2)=0
  29. 220 return
  30.